

BEGIN bar,main,bar

CHORDS scrn0,main,scrn0,bar

scrn0: EXECUTE mouse0,scrn1
scrn1: MATCH 2,2,bold,"Dialing",mouse1,scrn2  ;
scrn2: MATCH 4,8,bold,"NAME",mouse2,scrn3     ; dial dir
scrn3: MATCH 25,2,bold,"PgUp",mouse3,scrn4    ; redisplay
scrn4: MATCH 2,3,bold,"PROCOMM",mouse2,scrn5       ; setup
scrn5: MATCH 4,32,bold,"K E Y",mouse4,scrn6        ; keyboard macros
scrn6: MATCH 4,36,bold,"ASP",mouse3,scrn20         ; aspect files

scrn20: MATCH 1,1, ,"PROCOMM", bar,


mouse0: ASSIGN none, main, none, none, none, none,none, 0,0
mouse1: ASSIGN return, ,esc, left, right, none, none, 12, 0
mouse2: ASSIGN return,space ,esc, none, none, up, down, 0, 12
mouse3: ASSIGN return, ,esc, none, none, up, down, 0,8
mouse4: ASSIGN return, , esc, left, right, up , down, 4,12
mouse5: ASSIGN return,main,esc,none,none,none,none,0,0
mouse6: ASSIGN return,edit,esc,left,right,up,down,4,8  ;OPed mouse

space: TYPE " "
up: TYPE 0,72
down: TYPE 0,80
left: TYPE 0,75
right: TYPE 0,77
none: TYPE 0,0
return: TYPE enter
esc: TYPE esc
triggerbar: TYPE "`"

edit: MENU "Edit Functions",1,50
Option "QUIT & SAVE",ctlz
option "QUIT & ABORT",escesc
option "Toggle INSERT",tog
option "PAGE DOWN",edpgdn
option "PAGE UP",edpgup
option "Read IN Mode",ctlkctlr
option "Copy IN Text",ctlkctlc
option "Continue Copy",cont
option "BACK to EDIT",ctlkctlr
option "DELETE LINE",ctly
option "DEL to EOL",ctlqctly
option "START of LINE",home
option "END of LINE",end
MEND

ctlz: TYPE 26
escesc: TYPE esc, esc
tog: TYPE 22
ctlkctlr: TYPE 11,18
ctlkctlc: TYPE 11,3
cont: EXECUTE pgdn,ctlkctlc
edpgup: TYPE 18
edpgdn: TYPE 3
ctlqctly: TYPE 17,25
ctly: TYPE 25
home: TYPE 17,19
end: TYPE 17,4

altd: TYPE 0,32
altdEX: execute altd,mouse2
alth: TYPE 0,35
alts: TYPE 0,31
altsEX: execute alts,mouse2
altz: TYPE 0,44
altx: TYPE 0,45
altp: TYPE 0,25
altw: TYPE 0,17
altf5: TYPE 0,108
altf5EX: execute altf5,mouse3
pgup: TYPE 0,73
altf8: TYPE 0,111
altm: TYPE 0,50
altmEX: execute altm,mouse4
pgdn: TYPE 0,81
altf6: TYPE 0,109
altf6EX: execute altf6,mouse3
altf1: TYPE 0,104
altc: TYPE 0,46
altf2: TYPE 0,105
altb: TYPE 0,48
altg: TYPE 0,34
altf: TYPE 0,33
altt: TYPE 0,20
altl: TYPE 0,38
altf7: TYPE 0,110
altv: TYPE 0,47
alto: TYPE 0,24
altr: TYPE 0,19
alta: TYPE 0,30
altq: TYPE 0,16
alte: TYPE 0,18
altf4: TYPE 0,107
alty: TYPE 0,21
altf3: TYPE 0,106
alti: TYPE 0,23
altj: TYPE 0,36
altk: TYPE 0,37
altu: TYPE 0,22
altn: TYPE 0,49

main:  EXECUTE mouse5,mainmenu
bar: EXECUTE triggerbar,mouse1

mainmenu: POPUP 2,2
TEXT "*----------------------------------------------------------------------------*"
TEXT "|              P R O C O M M  P L U S  C O M M A N D  M E N U                |"
TEXT "|----------------------------------------------------------------------------|"
TEXT "|----------------- COMMUNICATIONS -------------------------- SETUP ----------|"
TEXT "|------ BEFORE -------------------- AFTER ---------|                         |"
TEXT "| Dialing Directory Alt-D  Hang Up ......... Alt-H | Setup Facility .. Alt-S |"
TEXT "| HELP              Alt-Z  Exit ............ Alt-X | Line Port Setup . Alt-P |"
TEXT "|------- DURING -----------------------------------| Translate Table . Alt-W |"
TEXT "| Script Files ... Alt-F5  Send Files ...... PgUp  | Key Mapping .... Alt-F8 |"
Text "| Keyboard Macros . Alt-M  Receive Files ... PgDn  |                         |"
Text "| Redisplay ...... Alt-F6  Log File On/Off  Alt-F1 |--- OTHER FUNCTIONS -----|"
TEXT "| Clear Screen .... Alt-C  Log File Pause . Alt-F2 |                         |"
TEXT "| Break Key ....... Alt-B  Screen Snapshot . Alt-G | File Directory .. Alt-F |"
TEXT "| Elapsed Time .... Alt-T  Printer On/Off .. Alt-L | Change Directory Alt-F7 |"
TEXT "|------- OTHER ------------------------------------| View a File ..... Alt-V |"
TEXT "| Chat Mode ....... Alt-O  Record Mode ..... Alt-R | Editor .......... Alt-A |"
TEXT "| Host Mode ....... Alt-Q  Duplex Toggle ... Alt-E | DOS Gateway .... Alt-F4 |"
TEXT "| Auto Answer ..... Alt-Y  CR-CR/LF Toggle  Alt-F3 | Program Info .... Alt-I |"
TEXT "| User Hot Key 1 .. Alt-J  Kermit Server Cmd Alt-K |   -  OPed Mouse  -      |"
TEXT "| User Hot Key 2 .. Alt-u  Screen Pause .... Alt-N |                         |"
TEXT "*----------------------------------------------------------------------------*"
SELECT 6,3,23,altdEX
SELECT 6,28,23,alth
SELECT 6,54,23,altsEX
SELECT 7,3,23,altz
SELECT 7,28,23,altx
SELECT 7,54,23,altp
SELECT 8,54,23,altw
SELECT 9,3,23,altf5EX
SELECT 9,28,23,PgUp
SELECT 9,54,23,altf8
SELECT 10,3,23,altmEX
SELECT 10,28,23,PgDn
SELECT 11,3,23,altf6EX
SELECT 11,28,23,altf1
SELECT 12,3,23,altc
SELECT 12,28,23,altf2
SELECT 13,3,23,altb
SELECT 13,28,23,altg
SELECT 13,54,23,altf
SELECT 14,3,23,altt
SELECT 14,28,23,altl
SELECT 14,54,23,altf7
SELECT 15,54,23,altv
SELECT 16,3,23,alto
SELECT 16,28,23,altr
SELECT 16,54,23,alta
SELECT 17,3,23,altq
SELECT 17,28,23,alte
SELECT 17,54,23,altf4
SELECT 18,3,23,alty
SELECT 18,28,23,altf3
SELECT 18,54,23,alti
SELECT 19,3,23,altj
SELECT 19,28,23,altk
SELECT 19,54,23,mouse6
SELECT 20,3,23,altu
SELECT 20,28,23,altn
PEND
